home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / ustation / hash.c < prev    next >
C/C++ Source or Header  |  1986-01-17  |  157b  |  13 lines
  1. hash(k, siz)
  2. char *k;
  3. int siz;
  4. {
  5.     register s, i;
  6.  
  7.     for (s = i = 0;  k[i] != '\0';  i++)
  8.         s = s*12345 + k[i] + 1;
  9.     if (s < 0)
  10.         s = -s;
  11.     return(s %= siz);
  12. }
  13.